Release 10.1A: OpenEdge Development:
Progress 4GL Reference

PROGRESS function

Returns one of the following character values which identifies the Progress product that is running: Full, Query or Run-Time. Can also return COMPILE if you use the Developer’s Toolkit, or COMPILE-ENCRYPT if you use the run-time Compiler.

Note: Does not apply to SpeedScript programming.

Syntax

PROGRESS

Examples

The following procedure uses the PROGRESS phrase function to determine which exit prompt is displayed on a menu.

r-progfn.p

/* Depending on the version of PROGRESS you are running, */ /* the main menu reflects available features for end-user */ DEFINE VARIABLE menu AS CHARACTER EXTENT 3. DEFINE VARIABLE exit-prompt AS CHARACTER. IF PROGRESS EQ "FULL" THEN exit-prompt = " 3. Return to Full Editor ". ELSE IF PROGRESS EQ "QUERY" THEN exit-prompt = " 3. Return to Query Editor". ELSE IF PROGRESS EQ "RUN-TIME" THEN exit-prompt = "3. Exit Program". DO WHILE TRUE: DISPLAY " 1. Display Customer Data" @ menu[1] SKIP " 2. Display Order Data" @ menu[2] SKIP exit-prompt @ menu[3] FORMAT "x(26)" SKIP WITH FRAME choices NO-LABELS. CHOOSE FIELD menu AUTO-RETURN WITH FRAME choices TITLE "Demonstration menu" CENTERED ROW 10. HIDE FRAME choices. IF FRAME-INDEX EQ 1 THEN MESSAGE "You picked option 1.". ELSE IF FRAME-INDEX EQ 2 THEN MESSAGE "You picked option 2.". ELSE IF FRAME-INDEX EQ 3 THEN RETURN. END.

This procedure displays a message that tells you the type of Progress product you are using:

r-prodct.p

MESSAGE "You are currently running this PROGRESS product:" PROGRESS VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

See also

DBVERSION function, PROVERSION function